home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 75 / MOBICLIC 75.ISO / pc / DATA / TCHATCHE / doggy75-84.cst / 00106_Script_gestion_rolls_boutons < prev    next >
Text File  |  2005-06-13  |  3KB  |  100 lines
  1. -- gestion des rolls sur les boutons
  2.  
  3. property s, nom
  4. global laboActif,laboOK,laboH,laboV,pisteLabo,sonIntLangues,dernierSon
  5. global interLangues,pisteInfoBulle
  6.  
  7. on beginSprite me
  8.   s = me.SpriteNum
  9.   nom = sprite(s).member.name
  10.   if nom contains "Micro" then
  11.     pisteLabo = s
  12.     --sprite(s).member = member("Micro2")
  13.   end if
  14.   if voidP(interlangues) then interfaceOn
  15. end
  16.  
  17. on MouseEnter me
  18.   -- conditions d'annulation du script ----------------------------
  19.   if _movie.pauseState() then exit
  20.   if interLangues=0 then exit
  21.   if laboActif=1 then exit
  22.   if sprite(s).member = member("Micro2") then exit
  23.   
  24.   _player.cursor(280)
  25.   sprite(s).member = nom & "_1"
  26.   
  27.   -- affichage de l'info bulle correspondant au bouton
  28.   xH = sprite(s).locH - 150
  29.   xV = sprite(s).locV - 10
  30.   
  31.   nomBulle = "tBulleLabo" & suffixeLangue()
  32.   sprite(pisteInfoBulle).width = member(nomBulle).width
  33.   sprite(pisteInfoBulle).height = member(nomBulle).height
  34.   sprite(1+pisteInfoBulle).member = member(nomBulle)
  35.   _movie.updateStage()
  36.   
  37.   sprite(1+pisteInfoBulle).locH = xH
  38.   sprite(1+pisteInfoBulle).locV = xV
  39.   _movie.updateStage()
  40.   sprite(pisteInfoBulle).rect = sprite(1+pisteInfoBulle).rect + rect(0,0,0,2)
  41.   sprite(pisteInfoBulle).visible =1
  42.   sprite(1+pisteInfoBulle).visible =1
  43.   
  44.   -- jouer le son correspondant au bouton si aucun son ne se joue
  45.   if sound(3).status = 3 then exit
  46.   if sonIntLangues = 0 then exit
  47.   LBout = ["Voc0","JeuVoc0","Dialog0","Jeu0","Son0","Micro0"]
  48.   p = getPos(LBout,nom)
  49.   put p && nom
  50.   if p<>0 then
  51.     nomSon = "bout" & string(p)
  52.     memSon = dernierSon
  53.     sound(4).volume = sound(3).volume
  54.     sound playFile(4, "@/sons_tchatche:" & nomSon & suffixeLangue())
  55.     put nomSon
  56.     dernierSon = memSon
  57.   end if
  58. end
  59.  
  60. on mouseLeave me
  61.   -- conditions d'annulation du script ----------------------------
  62.   if _movie.pauseState() then exit
  63.   if interLangues=0 then exit
  64.   if laboActif=1 then exit
  65.   if sprite(s).member = member("Micro2") then exit
  66.   
  67.   _player.cursor(-1)
  68.   
  69.   -- dissimulation des info bulles
  70.   sprite(pisteInfoBulle).visible=0
  71.   sprite(1+pisteInfoBulle).visible=0
  72.   
  73.   sound(4).stop()
  74.   sprite(s).member = nom
  75. end
  76.  
  77. on mouseUp me
  78.   -- conditions d'annulation du script ----------------------------
  79.   if laboActif=1 then exit
  80.   if interLangues=0 then exit
  81.   if sprite(s).member = member("Micro2") then exit
  82.   if sound(3).status = 3 and sprite(s).member.name contains "micro" then exit
  83.   
  84.   -- actions valides ----------------------------------------------
  85.   --  boutonClic = nom.char[1..4]
  86.   --  case boutonClic of
  87.   --    "Voc0" : acces "tcha01"
  88.   --    "JeuV" : acces "tcha03"
  89.   --    "Dial" : acces "tcha02"
  90.   --    "Jeu0" : acces "tcha04"
  91.   --    "Micr" : -- gestion du micro
  92.   --      if laboOK = 1 then
  93.   --        sprite(pisteLabo).member = nom
  94.   --        laboActif=1
  95.   --        _player.cursor(-1)
  96.   --        paletteLabo
  97.   --      end if
  98.   --  end case
  99.   lanceLabo
  100. end